home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ASME's Mechanical Engine…ing Toolkit 1997 December
/
ASME's Mechanical Engineering Toolkit 1997 December.iso
/
ai
/
prlg195b.lzh
/
SAMPLES.LZH
/
SUCCESS.PRO
< prev
next >
Wrap
Text File
|
1986-07-20
|
128b
|
5 lines
s(X,Y) :- X1 is X + 1, (Y is X1 ; s(X1,Y) ).
s1(X,Y) :- X1 is X + 1, Y is X + 1.
s1(X,Y) :- X1 is X + 1, s1(X1, Y).